/*  OUTPUT TO c:\qadguicli\doc\bom_jump1.txt. */
FOR EACH ps_mstr WHERE (ps_par BEGINS "P" OR ps_par BEGINS "P") AND ps_comp BEGINS "" AND ps_mod_date = date('04/03/24') BREAK BY ps_par BY ps_comp:
    
    IF FIRST-OF (ps_par) THEN DISP ps_par WITH STREAM-IO WIDTH 200.
    DISP ps_comp ps_qty_per ps_mod_date ps__chr01 WITH STREAM-IO WIDTH 200.
END.
